home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / main.dxr / 00002_Globals script.ls next >
Encoding:
Text File  |  1996-10-02  |  1.6 KB  |  65 lines
  1. global gStartClick, gGizmoClick, gMLength, gMChannel, gDest, gCGframe, gCTBframe
  2.  
  3. on dostartMovie
  4.   global gStartClick, gGizmoClick, gMLength, gMChannel, gDest
  5.   set gStartClick to 0
  6.   set gGizmoClick to 0
  7.   set gMChannel to 8
  8.   set gDest to EMPTY
  9.   set gCGframe to the number of member "CG.end"
  10.   set gCTBframe to the number of member "ctb.end"
  11.   set the video of member "CanFly" to 1
  12.   set gMLength to the duration of member "CanFly"
  13.   unLoad()
  14.   preLoad(22, 145)
  15. end
  16.  
  17. on walkGizmo pSource
  18.   global gDest
  19.   if pSource <> gDest then
  20.     if char 1 of pSource = char 1 of gDest then
  21.       go(label(pSource & "-" & gDest))
  22.     else
  23.       if pSource = "N" then
  24.         set jMidDest to "N" & char 2 of gDest
  25.         set jStep1 to "N-" & jMidDest
  26.         unLoad()
  27.         preLoad(label(jStep1), label(jStep1) + 14)
  28.         if char 1 of gDest = "S" then
  29.           set jStep2 to jMidDest & "-" & gDest
  30.           preLoad(label(jStep2), label(jStep2) + 29)
  31.         end if
  32.         go(label("N-N" & char 2 of gDest))
  33.       else
  34.         if char 2 of pSource = char 2 of gDest then
  35.           go(label(pSource & "-" & gDest))
  36.         else
  37.           go(label(pSource & "-" & char 1 of pSource & char 2 of gDest))
  38.         end if
  39.       end if
  40.     end if
  41.   else
  42.     if soundBusy(1) then
  43.       sound stop 1
  44.     end if
  45.     if soundBusy(2) then
  46.       sound stop 2
  47.     end if
  48.     puppetSound(0)
  49.     unLoad()
  50.     if gDest = "NW" then
  51.       go(1, "COMPARE")
  52.     else
  53.       if gDest = "NE" then
  54.         go(1, "MAPMAKER")
  55.       else
  56.         if gDest = "SW" then
  57.           go(1, "RIDDLER")
  58.         else
  59.           go(1, "EO")
  60.         end if
  61.       end if
  62.     end if
  63.   end if
  64. end
  65.